МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
ІКТА кафедра «Захист інформації»
Звіт
про виконання лабораторної роботи №2
з дисципліни
"ПРОГРАМУВАННЯ КОМП`ЮТЕРНОЇ ГРАФІКИ"
ПОБУДОВА ГРАФІКІВ ФУНКЦІЙ
ЗАСОБАМИ МОВИ ТУРБО-ПАСКАЛЬ
Варіант 3
Мета роботи - набути практичних навиків в складанні програм для побудови графіків функцій за допомогою засобів мови Турбо-Паскаль.
ЗАВДАННЯ
Домашня пiдготовка до роботи
Ознайомитися з методами побудови графіків функцій на екрані монітора комп’ютера.
Вивчити основні процедури мови Турбо-Паскаль для виведення тексту в графічному режимі.
Написати програму, яка будує в середині екрану систему координат XY і на ній графік функції Y=F(X), використовуючи графічні оператори мови Турбо Паскаль, якщо аргумент або параметр змінюється на проміжку [a;b] з кроком h. Варіанти завдань беруть з таблиці 1 за вказівкою викладача.
Таблиця 1.
N% п/п
Функція
Інтервал
Крок
3
x=[0;180]
h=0.15
Робота в лабораторiї
1. Ввести в комп'ютер програму, написану на мові Турбо-Паскаль згідно з отриманим завданням.
2. Здійснити відладку введеної програми, виправивши виявлені компілятором помилки.
3. Виконати програму. Текст відлагодженої програми та отримані результати оформити в звіт з лабораторної роботи.
2. БЛОК-СХЕМА АЛГОРИТМУ ПРОГРАМИ
3. Список ідентифікаторів змінних, використаних у програмі, та їх пояснення
gd
Тип графічного драйвера
gm
Режим роботи графічного драйвера
x0, y0
Змінні, яким присвоюються координати центра екрану в поточному режимі
x, y
Поточні реальні координати точки
xm, ym
Поточні машинні координати точки
x1, y1
Відображення центру реальних координат на екрані в машинних координатах
t
Параметрична змінна
h
Крок
4. ТЕКСТ ПРОГРАМИ
Program PKG2;
Uses Crt, Graph;
Var Gd, Gm, x0, y0:integer;
x, x1, xm, y, y1, ym, t, h: real;
Begin
clrscr;
Gd:=DETECT;
InitGraph(Gd, Gm, '');
x0:=GetMaxX div 2;
y0:=GetMaxY div 2;
line (1,y0,GetMaxX-2,y0); {visb X}
line (x0,1,x0,GetMaxY-2); {visb Y}
OutTextXY (x0-10,y0-10,'0');
line (319,1,317,10);
line (319,1,321,10); {strilka Y}
OutTextXY (325,2,'Y');
line (639,239,629,237);
line (639,239,629,241); {strilka X}
OutTextXY (631,224,'X');
h:=0.15; t:=ln(0.15);
x1:=exp(t);
y1:=90*cos(exp(t)+t/20);
x1:=x1+x0; y1:=y1+y0;
moveto(round(x1),round(y1));
while t<=ln(180) do
begin
x:=exp(t);
y:=90*cos(exp(t)+t/20);
xm:=x+x0; ym:=y+y0;
lineto(round(xm),round(ym));
x1:=xm; y1:=ym; t:=t+h;
end;
Readln;
CloseGraph;
End.
Висновок: виконуючи цю лабораторну роботу я навчився складати програми для побудови графіків функцій за допомогою засобів мови Турбо-Паскаль.
